﻿Public Class xtf_LISTADOensayo03_
       Dim mascaraInforme As New DevExpress.XtraEditors.TextEdit
    Public Overrides Sub IniciarLista()
        Try
            gdc_general.BeginUpdate()
            gdc_general.DataSource = dtt_DataTable
            'ulg_Lista.DisplayLayout.GroupByBox.Style = Infragistics.Win.UltraWinGrid.GroupByBoxStyle.Full

            'Creacion y carga de Cuentas
            dtt_DataTable.Columns.Add("Identificador (ID)")
            dtt_DataTable.Columns.Add("Informe")
            dtt_DataTable.Columns.Add("Fecha")
            dtt_DataTable.Columns.Add("Cliente")
            dtt_DataTable.Columns.Add("Obra")
            dtt_DataTable.Columns.Add("Realizado")
            dtt_DataTable.Columns.Add("Ingresado")
            dtt_DataTable.Columns.Add("Equipo")
            dtt_DataTable.Columns.Add("Evaluador")
            dtt_DataTable.Columns.Add("Inspector")

            Dim ensayosubtipo As New cls_ensayosubtipo_
            If ensayosubtipo.BuscarXidmodulo("001072001") Then
                mascaraInforme.EditValue = ensayosubtipo.numero
                mascaraInforme.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Numeric
                mascaraInforme.Properties.Mask.EditMask = ""
                If ensayosubtipo.ensayotipo.siglaUSA Then mascaraInforme.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.sigla
                If ensayosubtipo.ensayotipo.siglaENGUSA Then mascaraInforme.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.siglaENG

                If ensayosubtipo.siglaUSA Then mascaraInforme.Properties.Mask.EditMask &= ensayosubtipo.sigla
                If ensayosubtipo.siglaENGUSA Then mascaraInforme.Properties.Mask.EditMask &= ensayosubtipo.siglaENG

                mascaraInforme.Properties.Mask.EditMask &= "-" & ensayosubtipo.numeroformato

                mascaraInforme.Properties.Mask.UseMaskAsDisplayFormat = True
            End If


            gdv_general.PopulateColumns(dtt_DataTable)

            Dim obj_ensayo03_ As New cls_ensayo03_
            If obj_ensayo03_.CargarTodos(ObtenerRegistroEstado) Then
                For Each ensayo03 As cls_ensayo03_ In obj_ensayo03_.Items
                    AgregarItem(ensayo03)
                Next
            End If
            'ulg_Lista.DataBind()

            FiltrarColumnas()
            gdc_general.EndUpdate()

        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Function AgregarItem(ByRef ensayo03 As cls_ensayo03_) As DataRow
        Dim Row As DataRow = dtt_DataTable.NewRow
        Row("Identificador (ID)") = ensayo03.idensayo03
        mascaraInforme.Text = ensayo03.numero
        Row("Informe") = mascaraInforme.Text
        Row("Fecha") = ensayo03.fecha
        If Not IsNothing(ensayo03.cliente) Then
            Row("Cliente") = ensayo03.cliente.ToString
        Else
            Row("Cliente") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo03.centrocostoorden) Then
            Row("Obra") = ensayo03.centrocostoorden.ToString
        Else
            Row("Obra") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo03.usuariorealizado) Then
            Row("Realizado") = ensayo03.usuariorealizado.ToString
        Else
            Row("Realizado") = ""
        End If
        If Not IsNothing(ensayo03.usuarioingresado) Then
            Row("Ingresado") = ensayo03.usuarioingresado.ToString
        Else
            Row("Ingresado") = ""
        End If


        If Not IsNothing(ensayo03.equipo) Then
            Row("Equipo") = ensayo03.equipo.ToString
        Else
            Row("Equipo") = ""
        End If
        
        If Not IsNothing(ensayo03.evaluador) Then
            Row("Evaluador") = ensayo03.evaluador.ToString
        Else
            Row("Evaluador") = ""
        End If
        If Not IsNothing(ensayo03.inspector) Then
            Row("Inspector") = ensayo03.inspector.ToString
        Else
            Row("Inspector") = ""
        End If

        dtt_DataTable.Rows.Add(Row)
        'ulg_Lista.Rows(ulg_Lista.Rows.Count - 1).Height = 19
        Return Row
    End Function

    Public Sub ModificarItem(ByRef ensayo03 As cls_ensayo03_, ByRef ulg_row As DataRow)
        ulg_row("Identificador (ID)") = ensayo03.idensayo03
        mascaraInforme.Text = ensayo03.numero
        ulg_row("Informe") = mascaraInforme.Text
        ulg_row("Fecha") = ensayo03.fecha
        If Not IsNothing(ensayo03.cliente) Then
            ulg_row("Cliente") = ensayo03.cliente.ToString
        Else
            ulg_row("Cliente") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo03.centrocostoorden) Then
            ulg_row("Obra") = ensayo03.centrocostoorden.ToString
        Else
            ulg_row("Obra") = "Sin Asignar."
        End If
        If Not IsNothing(ensayo03.usuariorealizado) Then
            ulg_row("Realizado") = ensayo03.usuariorealizado.ToString
        Else
            ulg_row("Realizado") = ""
        End If
        If Not IsNothing(ensayo03.usuarioingresado) Then
            ulg_row("Ingresado") = ensayo03.usuarioingresado.ToString
        Else
            ulg_row("Ingresado") = ""
        End If
            If Not IsNothing(ensayo03.equipo) Then
            ulg_row("Equipo") = ensayo03.equipo.ToString
        Else
            ulg_row("Equipo") = ""
        End If

        If Not IsNothing(ensayo03.evaluador) Then
            ulg_row("Evaluador") = ensayo03.evaluador.ToString
        Else
            ulg_row("Evaluador") = ""
        End If
        If Not IsNothing(ensayo03.inspector) Then
            ulg_row("Inspector") = ensayo03.inspector.ToString
        Else
            ulg_row("Inspector") = ""
        End If
    End Sub

    Public Sub New()

        Me.Cursor = Cursors.WaitCursor
        InitializeComponent()
        PERMISONuevo = "001072002"
        PERMISOModificar = "001072003"
        PERMISOEliminar = "001072004"
        PERMISOImprimir = "001072005"
        Me.Text = lbl_modulo.Text : lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        lbl_modulodescripcion.Text = "Listado de " & lbl_modulo.Text & "."
        IniciarLista()
        Me.Cursor = Cursors.Default

    End Sub


End Class
